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poet setp0$disp ( IDENT = ‘V04-000", MAIN = setp0$disp) = 
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ie COPYRIGHT (oi 1978, 0280 1982, 1984 BY 
ie Kil PORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS Tement COR 


OFTWARE IS ceuTH usoet A LICENSE AND MAY BE USED AND COPIED 
N eee WITH THE TERMS OF SUCH 1CENSE AND WITH THE 

ION 0 E ABOVE C OPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
THER REOF MAA Bh tet PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
O AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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'@ THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE nt HOUT NOTICE 
:: CORPORAT fie NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


'@ DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
t* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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; FACILITY: SET Command (SETPO.EXE) 
i ABSTRACT: 


2s 
WIN 9 OONAUE WN“ OOOBNAUE WN O 8K 


This is the pete opr ton dispatcher for all options 
benches y the SETPO image which tap oo tay | resides 
is the P rogten. stack and all, in order to map 
certain sections into P1 space. 


i ENVIRONMENT: 
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: VAX/VMS operating system. unprivileged user mode, 

AUTHOR: Tim Halvorsen, Dec 1979 

Modified by: 

v03-003 AEWO001 Anne E. Warner 20-Jul-1984 
{ 
! 
' 
a 
' 
' 
1‘ 


Turn on the capability to report messages which was 
originally supressed. 


v03-002 BLS0291 Benn Schreiber 24-MAR-1984 
Move SET PASSWORD here from SET. 
v03-001 GASO112 Gerry Smith 29-Mar-1983 


Use new CLI interface. 
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' 
Include files 


1 LIBRARY ‘SYSSLIBRARY:STARLET.L32°; 


1$Beo-1964 09:52:26 
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CLIUTL 


! VAX/VMS common definitions 
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Table of contents 


FORWARD ROUTINE 
setp0$d 


isp; ! Main option dispatcher 


External routines 


EXTERNAL ROUTINE 


cli$get_value; ! Get value from CLI 


Global definitions 


OBAL 
setp0$l_status: INITIAL (ss$_normal); ! Status returned from option 


Macro to set up two associated tables. The first table is a list of 


! descriptor addresses. These descriptors contain the option names. 
! The second table is a corresponding List of addresses of option routines. 


If a new option is added to SETPO, all that is required in this 
module is to add one Line of code, the option name, 6-9. WORKING SET. 
Then, the name of the gtobat routine that is dispatched to from this 
routine will be named SETSWORKING_ SET. 


> 
o 
y2) 
o 


option_name Coption] = ZEXACTSTRING(4, 0, option)%, 
option_address Coption] = ZNAME(ZSTRING('set$* ,2STRING(option)))%, 
option_declare Coption] = ZNAME(ZSTRING('set$" ,2STRING(option))) : NOVALUEZ, 
make table (name) = 

CITERAL ZNAME(ZSTRING(name,'_table_ length')) = ZLENGTH - 1; 

EXTERNAL ROUTINE option_declare(ZREMAINING) ; 


ZNAME (ZSTRING(name,' option >) : VECTORCZLENGTH - 1) 
NITIAL (option_nameTZREMAINING)), 


I 
NAME (ZSTRING(name,*_routine’)) : VECTORCZLENGTH - 1] 
INITIAL (option_address(ZREMAINING));%; 


i Set up a table of all options, and another table pointing to the address 


of the routine for each option. 


make table (set, 


message, 


Page 


srg WERE IM RHE MELEE at 


3 122 0121 +1 password); 


ue ee ae ae. pmo Rar aepe er 


vO.-000 VecSep-i9ee Veso9ts — EetiuSsaeSsetebpise. 682; 1 eet j 


| 
; 126 1 1 ROUTINE handler (sigargs. mechargs) = 
: 498 138 } Geen ae “ | 
...¥ § 124 
oo: 125 leoe 
3; 3 8 1 $ : 
3; (1 1 ! This routine is a condition handler established by the main 
3 : : ; ; routine. It saves the most severe condition for the exit status. 
; 1 : 130 2 in-- 
3 1 131 
3 1 1 § MAP 
3 135 1 sigargs : REF SBBLOCK, 

; } ; ¢ ne : REF SBBLOCK; 

: : : 4 § signame = sigargs(chf$l_sig_name] : $BBLOCK; ! Name of signal | 
: 140 138 

; 141 1 9 IF .setp0$l_status EQL 1 ! If no errors yet, use 

3 166 pie9 THEN setpOS$T_status = .signame; ! this one. 

5 144 Oi4g IF NOT .signame ! If an error signal 

3; «6145 014 AND “Signene pees severity] ! and severity is worse | 
3; «146 0144 GTRU . OCKCsetp0$l_status, sts$v_severity] |! than current saved severity | 
; +e 4 Bie? THEN setp0$l_status = .signame; ! then save it for exit 
; | 
; «149 o149 RETURN ss$_resignal; ! Resignal to get message 

: 150 0148 1 END; 


-TITLE SETPOSDISP 
-IDENT \vV04-000\ 


»PSECT SOWNS,NOEXE,2 
53 53 45 4D 00000 seahsathieaer 


sASCII = \MESS\ : 

53. 53 41 50 00004 sASCII \PASS\ : 
000000006 000000006 00008 SET_ROUTINE: 

-ADDRESS SETSMESSAGE, SETSPASSWORD : 


-PSECT S$GLOBAL$,NOEXE,2 | 

00000001 00000 SETPOSL_STATUS:: 
-LONG 1 

-EXTRN CLISGET VALUE, SETSMESSAGE 

-EXTRN SETSPASSWORD 

-PSECT SCODE$,NOWRT,2 | 

| 


0004 00000 HANDLER:.WORD Save R2 ; 0122 
52 0000" cf 9F 0000 HOVAR SETPOSL STATUS, R2 ; 
50 06 AC 04 C 00 ADDL3 #4 SIGRRGS R i 0136, 
01 i bi 00 ‘ cMPL ; fPOSL_STATUS, #1 : 0139 
62 6 06 0011 MOVL (RO), SETPOSL_STATUS : 0140. 
OF 60 £8 00014 1$: BLBS (ROD: § > 0142. 


vw 
> 


16 
1§- S$ep-1984 00:37: AX-11 Bliss-32 V4.0-74 
14- met 90735399 CLIUTL SREISETPODISP. 882; 

EF 00017 EXTZv. #0, #3. SETPOSL STATUS, R1 

ED 0001C CMPZ7V #0. #3, (RO), RT 

1B 00021 BLEQU 2 

DO 00023 MOVL (RO), SETPOSL_STATUS 

3C 00026 2%: MOVZWL #2328, RO 

04 00028 RET 


SCODES + 0000 


D 14 
16-Sep-1984 00:37: AX-11 Bliss-32 V4.0-74 Pa 7 
14-Sep-19 4 99:50:93 tet tute sre SespUbisp BS2:1 at (4) 
ROUTINE setp0S$disp = ! Main dispatching routine 
'ee 


Functional description 


This routine Gecodes the set option and dispatches to 
the option specific routine. 


Calling sequence 

Called from the Command Language Interpreter 
! Input parameters | 

None 
Output parameters 


AAC MNIVIUIUIUTN 
FOR IS SSSSTSTS 
OOCOGCGOOOCOOOCOOOOOOO 


i 
i 
i 
i 
i 
i 
1 
i 
' 
i 
i 
i 
} None 

Routine value 

Error returned from option routine or SS$_NORMAL. 
1 


BEGIN 
LOCAL 
desc : BLOCKECdsc$c_s_bin,BYTE], ! Option descriptor 
status; ! status code 
ENABLE handler; ! Enable the condition handler 


: Get option, and dispatch to it 
Sinit_dyndesc (desc); ' Make descriptor dynamic 
IF (status = cli$get_value(ZASCID ‘OPTION’, desc) 

THEN RETURN .status; 

desc(dsc$w_length] = MINU (.descCdsc$w_length], 4); 

INCR index FROM 0 TO set_tabie_length - 1 DO 


IF CHSEQL(.descCdsc$w_length], sGoneldecSe_gotater 2. 


C9. 00 09 C9 C9 09 C9 09 09 09 SINISE SIN NIAAA AAA AAA MMIII 


= PONOPONIWEE BB WIWIWNIROOPONUPO IRON PUNONUPNUPONUNNNY 2 = 


ee ee ee ee ee ee ee ee ee 


TAR AV ISLS VARA LOOSEN PU ORISA E UN OD aa 


SOOOCOOCOCOOSOSOSOCOCOOOOOCCSOOOOOOOCOOOOOOOOOOoOOOO 


4 

i 

95 -descldsc$w_length], set_optionL. index]) 
133 THEN 

19 BEGIN 

138 (.set_routinel.index])(); 

1 EXITLOOP 

sot END; 

01 END; 

3 RETURN (.setp0$l_status ); ! Exit with message 
05 


oo 
o~ 


14 
SE IPOSDISP 1E-Beoct9ee 00:37:26 YaKaNT BLing=Sz v4. O-74 


«PSECT SPLITS,NOWRT,NOEXE,2 


0 4F Q0000 P.AAB: .ASCII \OPTION\<0><0> 
6 000 09 08 P.AAA: .LONG 194750 
tittitdie bode ADDRESS P.AAB 


-PSECT SCODES,NOWRT,2 
001C 00000 sachhiiceeras * 


00 00 4E 4F 49 54 


ORD Save R2,R3,R4 
a 04A oP 4 $0 nova ne +FP) 
02060960 F DD Sb0R PUSHL $34.491936 
04 AE 04 0001 CLRL  DESC+4 
SE 0D 0001 PUSHL 
0000" CF 9F 0001 PUSHAB P.AAA 
00006 CF 2 Fe 0019 CALLS #2, CLISGET_VALUE 
1 : OO1E BLBC STATUS, 5$ 
0 : C 0021 MOVZWL DESC, RO 
04 B1 00024 CMPW , a 
03 18 00027 BLEQU 
50 04 DO 900 9 MOVL #4, RO 
6E 0 BO 0002C 18 MOVW RO, DESC 
54 D4 0002F CLRL NDEX 
0000'CF44 DF 00031 28 PUSHAL SET_OPTIONCINDEX] 
9E 08 BE 04 AE #9 00036 CMPC ESC, @DESC+4, a(SP)+ 
0B 12 0003C BNEQ 
50 0000°CF44 DO 0003E MOVL SET _ROUTINECINDEXI, RO 
60 00 FB 00044 CALLS #0,~(RO) 
04 11 90047 RB $ 
E4 54 01 £3 00049 3$: AOBLEQ #1, INDEX, 2$ 
50 0000" CF DO 00040 4$: OVL  SETPOSL_STATUS, RO 
04 0005¢ 5$: RET 
0000 00053 6$: «WORD Save nothing 
7E D4 00055 CLRL 30s = (SP) 
SE bb 90047 PUSHL SP 
7E 04 A D £34 MOVQ 4(AP), -(SP) 
FF72 CF 0 FB 0005D CALLS #3, HANDLER 
04 00062 RET 


; Routine Size: 99 bytes, Routine Base: $CODE$ + 002C 


eee 


SETPRSISP 
af 8807 0 ELuvon 


F 14 
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PSECT SUMMARY 

Name Bytes Attributes 
SGLOBALS 4 wovece WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SOWNS ig NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SCODES 1435 NOVEC, *NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SPLITS 16 NOVEC, *NOWRT, RD ,NOEXE,NOSHR. LCL, REL, CON,NOPIC,ALIGN(2) 

Library Statistics 
quacasee Symbols -------- Pages Processing 

File Total Loaded Percent Mapped ime 

_5255$DUA28: CSYSLIBISTARLET.L32;1 9776 13 0 581 00:01.0 


COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:SETPODISP/OBJ=OBJ$:SETPODISP MSRC$:SETPODISP/UPDATE=(ENH$: SETPODISP) 
Size: 143 code + 36 data bytes 


un Time 04. 
ph Time: 0:20.8 
Lines/CPU Min: 2529 
Lexemes/CPU-Min: 14969 

10 Used: 54 pages 
Compilation Complete 
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